Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/loanapp/loanf4.frm

Text File | 1995-05-07 | 8KB | 253 lines

VERSION 2.00
Begin Form Form4
   BackColor       =   &H00808080&
   ClientHeight    =   3660
   ClientLeft      =   165
   ClientTop       =   2100
   ClientWidth     =   8880
   ControlBox      =   0   'False
   Height          =   4065
   Left            =   105
   LinkMode        =   1  'Source
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3660
   ScaleWidth      =   8880
   Top             =   1755
   Width           =   9000
   Begin CommandButton Command3
      Caption         =   "Cancel"
      Height          =   285
      Left            =   4995
      TabIndex        =   13
      Top             =   3150
      Width           =   3000
   End
   Begin CommandButton Command1
      Caption         =   "OK"
      Height          =   300
      Left            =   885
      TabIndex        =   12
      Top             =   3150
      Width           =   3000
   End
   Begin PictureBox Picture5
      Height          =   900
      Left            =   3795
      ScaleHeight     =   870
      ScaleWidth      =   5010
      TabIndex        =   14
      Top             =   2010
      Width           =   5040
      Begin CheckBox Check1
         Caption         =   "Secondary Residence"
         Height          =   225
         Index           =   3
         Left            =   1740
         TabIndex        =   18
         Top             =   555
         Width           =   2190
      End
      Begin CheckBox Check1
         Caption         =   "Primary Residence"
         Height          =   240
         Index           =   2
         Left            =   1740
         TabIndex        =   17
         Top             =   300
         Width           =   1890
      End
      Begin CheckBox Check1
         Caption         =   "Investment"
         Height          =   255
         Index           =   1
         Left            =   1740
         TabIndex        =   16
         Top             =   45
         Width           =   1290
      End
      Begin Label Label5
         Caption         =   "Property will be:"
         Height          =   210
         Left            =   45
         TabIndex        =   15
         Top             =   45
         Width           =   1455
      End
   End
   Begin PictureBox Picture4
      Height          =   900
      Left            =   1920
      ScaleHeight     =   870
      ScaleWidth      =   1770
      TabIndex        =   3
      Top             =   2010
      Width           =   1800
      Begin PictureBox BEditF4
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   4
         Left            =   45
         ScaleHeight     =   465
         ScaleWidth      =   1650
         TabIndex        =   11
         Top             =   330
         Width           =   1680
      End
      Begin Label Label4
         Caption         =   "Year Built:"
         Height          =   225
         Left            =   45
         TabIndex        =   7
         Top             =   45
         Width           =   990
      End
   End
   Begin PictureBox Picture3
      Height          =   900
      Left            =   45
      ScaleHeight     =   870
      ScaleWidth      =   1770
      TabIndex        =   2
      Top             =   2010
      Width           =   1800
      Begin PictureBox BEditF4
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   3
         Left            =   45
         ScaleHeight     =   465
         ScaleWidth      =   1650
         TabIndex        =   10
         Top             =   330
         Width           =   1680
      End
      Begin Label Label3
         Caption         =   "Number of Units:"
         Height          =   225
         Left            =   45
         TabIndex        =   6
         Top             =   45
         Width           =   1515
      End
   End
   Begin PictureBox Picture2
      Height          =   900
      Left            =   45
      ScaleHeight     =   870
      ScaleWidth      =   8760
      TabIndex        =   1
      Top             =   1035
      Width           =   8790
      Begin PictureBox BEditF4
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   2
         Left            =   45
         ScaleHeight     =   465
         ScaleWidth      =   8640
         TabIndex        =   9
         Top             =   330
         Width           =   8670
      End
      Begin Label Label2
         Caption         =   "Purpose of Loan:"
         Height          =   225
         Left            =   45
         TabIndex        =   5
         Top             =   45
         Width           =   1575
      End
   End
   Begin PictureBox Picture1
      Height          =   900
      Left            =   45
      ScaleHeight     =   870
      ScaleWidth      =   8760
      TabIndex        =   0
      Top             =   60
      Width           =   8790
      Begin PictureBox BEditF4
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   1
         Left            =   45
         ScaleHeight     =   465
         ScaleWidth      =   8640
         TabIndex        =   8
         Top             =   330
         Width           =   8670
      End
      Begin Label Label1
         Caption         =   "Legal Description of Property:"
         Height          =   255
         Left            =   45
         TabIndex        =   4
         Top             =   45
         Width           =   2580
      End
   End
End

Sub Check1_Click (Index As Integer)
    If Form4.Visible = True Then
        If Form4.Check1(Index).Value = 1 Then
            For i = 1 To 3
                If i <> Index Then
                    Form4.Check1(i).Value = 0
                End If
            Next i
        End If
    End If
End Sub

Sub Command1_Click ()
    MainRec.C.C1 = Form4.BEditF4(1).Text
    MainRec.C.C2 = Form4.BEditF4(2).Text
    MainRec.C.C3 = Form4.BEditF4(3).Text
    MainRec.C.C4 = Form4.BEditF4(4).Text
    For i = 1 To 3
        If Form4.Check1(i).Value = 1 Then
            MainRec.C.CC1 = i
            MainRec.C.C5 = Form4.Check1(i).Caption
            Exit For
        Else
            MainRec.C.CC1 = 0
            MainRec.C.C5 = ""
        End If
    Next i
    UpdateLabelC
    Form4.Hide
End Sub

Sub Command3_Click ()
    Form4.Hide
End Sub

Sub Form_Load ()
    Form4.Left = 300
    Form4.Top = (Screen.Height - Form4.Height) / 2
End Sub